\ Create a file and write a string to it.
s" output" r/w create-file throw Value output-handle
output-handle s" Hello!" rot write-file throw
output-handle flush-file throw
output-handle close-file throw


\ Put text in piece of memory and write to a file.
s" output" r/w create-file throw Value output-handle
pad 20 accept
\ now type something in, like "hello 123" (without quotes)
pad 100 dump
